home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / PERL / UNTESTED / EG / VAN / VANEXP < prev    next >
Text File  |  1991-04-28  |  443b  |  22 lines
  1. #!/usr/bin/perl
  2.  
  3. # $Header: vanexp,v 4.0 91/03/20 01:15:54 lwall Locked $
  4.  
  5. # This is for running from a find at night to expire old .deleteds
  6.  
  7. $can = $ARGV[0];
  8.  
  9. exit 1 unless $can =~ /.deleted$/;
  10.  
  11. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  12.    $blksize,$blocks) = stat($can);
  13.  
  14. exit 0 unless $size;
  15.  
  16. if (time - $mtime > 2 * 24 * 60 * 60) {
  17.     `/bin/rm -rf $can`;
  18. }
  19. else {
  20.     `find $can -ctime +2 -exec rm -f {} \;`;
  21. }
  22.